home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
misc
/
amag
/
9303b.lha
/
Inside Amos
/
Listings
/
Fonts.asc
next >
Wrap
Text File
|
1993-02-25
|
716b
|
40 lines
' FONTS Unterroutinen
'
' Zunächst einmal dimensionieren
'
Dim _FONTNAME$(100),_GROESSE(100)
'
' Variable als global setzen.
'
Global _FONTNAME$(),_GROESSE()
'
' Jetzt kann man die Fonts einlesen und einen
' gewünschten Font anzeigen lassen !
_LESE_FONTS
_FONT["Diamond",20]
'
Procedure _LESE_FONTS
Get Fonts
I=0
While 1
Inc I
A$=Font$(I)
If A$-" "="" Then Exit
A$=Upper$(A$)
_FONTNAME$(I)=Left$(A$,29)-" "
_GROESSE(I)=Val(Mid$(A$,30,3))
Wend
Dec I
End Proc
Procedure _FONT[N$,G]
N$=Upper$(N$)
NUMMER=0
For I=1 To 100
If(N$=_FONTNAME$(I)) and(G=_GROESSE(I))
Set Font I
NUMMER=I
Exit
End If
Next I
End Proc[NUMMER]